حجم إسطوانة الليزر
References أختر Project من القائمة
Microsoft Scripting Runtime اضف مكتبة الارتباط
:ثم أكتب الشيفرة التالية حسب الحاجة
On Error GoTo ex
Dim objFolder As
Folder
Set objFSO = New FileSystemObject
Set objDrive =
objFSO.GetDrive("E:")
MsgBox (objDrive.TotalSize / 1024 / 1024 &
"MB")
Exit Sub
ex:
MsgBox "Make sure you have disk
inserted", vbExclamation, "Note"